home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr37 / reqst10.zip / REQUEST.WCX (.txt) < prev    next >
Wildcat! WCX  |  1995-03-06  |  6KB  |  388 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  5790 bytes  01/29/123  04:31:10pm
  3. '! Code Segment Size  :3903 bytes
  4. '! Data Segment Size  :5528 bytes
  5. '! String Segment Size:1887 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type26
  9.         Filler0(1 To 6) As Byte
  10.         s6 As String*70
  11.         Filler76(1 To 14) As Byte
  12.         s90 As String*70
  13.         Filler160(1 To 10) As Byte
  14.         l170 As Long
  15.         s174 As String*70
  16.         s244 As String*8
  17.         Filler252(1 To 12) As Byte
  18.         w264 As Word
  19.         Filler266(1 To 2) As Byte
  20.         w268 As Word
  21.         w270 As Word
  22.         w272 As Word
  23.         w274 As Word
  24.         w276 As Word
  25.         w278 As Word
  26.         w280 As Word
  27.         w282 As Word
  28.       End Type
  29.  
  30.       Declare Sub Sub1453
  31.       Declare Sub Sub1904
  32.       Declare Sub Sub2355
  33.       Declare Sub Sub2558
  34.       Declare Sub Sub2669
  35.       Declare Sub Sub2784
  36.  
  37.       Dim sr4463 As SearchRec
  38.       Dim i4512 As Integer
  39.       Dim s4514 As String
  40.       Dim mh4518 As MessageHeader
  41.       Dim mh4838 As MessageHeader
  42.       Dim mh5158 As MessageHeader
  43.       Dim i5478 As Integer
  44.       Dim w5480 As Word
  45.       Dim s5482 As String
  46.       Dim t5490 As Time
  47.       Dim d5494 As Date
  48.       Dim s5496 As String
  49.       Dim s5504 As String
  50.       Dim s5508 As String
  51.       Dim i5512 As Integer
  52.       Dim s5514 As String
  53.       Dim s5518 As String
  54.       Dim i5522 As Integer
  55.       Dim i5526 As Integer
  56.  
  57.       CurrentTime t5490
  58.       CurrentDate d5494
  59.       s5496 = Trim(ProgPath)
  60.       i5526 = -1
  61.       Cls 
  62.       Print "@NOPAUSE@"
  63.       Print "@0F@         @0D@╥──┐ ╥──┐ ╓──┐ ╥  ┬ ╥──┐  ╓─┐ ╓─╥─┐  "
  64.       Print "@0F@         @0C@╟─┬┘ ╟─   ║  │ ║  │ ╟─    ╙─┐   ║    "
  65.       Print "@0F@         @0D@╨ ┴  ╨──┘ ╙─┼┘ ╙──┘ ╨──┘ ╙──┘   ╨    "
  66.       Print "@07@                                           v1.0ß  "
  67.       Print "@02@       Wildcat! Netmail FTP FILE Request Processor "
  68.       Print "@0E@             (c) 1995 Maddog Productions "
  69.       Print "@0F@"
  70.       Delay 1
  71.       Print " Reading Config File......"
  72.       ActivityLog "REQUEST! Started at " + FormatTime(t5490, "hh:mm") + " " + FormatDate(d5494, "mm/dd/yy")
  73.       s4514 = "REQUEST! Started at " + FormatTime(t5490, "hh:mm") + " " + FormatDate(d5494, "mm/dd/yy")
  74.       Sub2558
  75.       s4514 = s5496 + "REQUEST.CFG"
  76.       If Not Exists(s4514) Then
  77.         s4514 = s4514 + "  Does NOT Exist!"
  78.         ActivityLog s4514
  79.         ActivityLog "Exiting REQUEST!"
  80.         Sub2669
  81.         End 
  82.       End If
  83.   318 Open s4514 For Input As 1
  84.       LockFile(1, 0, 1)
  85.   346 Do While Not EOF(1)
  86.         Input #1, s4514
  87.         s4514 = UCase(s4514)
  88.         If InStr(s4514, "----") > 0 Then
  89.           GoTo 610
  90.         End If
  91.   404   If InStr(s4514, "NETCONF=") = 1 Then
  92.           s5518 = RTrim(Mid(s4514, 9, 80))
  93.         End If
  94.   444   If InStr(s4514, "USENAME=") = 1 Then
  95.           s5482 = RTrim(Mid(s4514, 9, 80))
  96.         End If
  97.   484   If InStr(s4514, "USEID=") = 1 Then
  98.           s5504 = RTrim(Mid(s4514, 6, 80))
  99.         End If
  100.   524   If InStr(s4514, "SYSOPID=") = 1 Then
  101.           s5508 = RTrim(Mid(s4514, 9, 80))
  102.         End If
  103.   564   If InStr(s4514, "PVTCONF=") = 1 Then
  104.           s5514 = RTrim(Mid(s4514, 9, 80))
  105.         End If
  106.   604 Loop
  107.   610 UnlockFile(1, 0, 1)
  108.       Close 1
  109.       If s5518 = "" Then
  110.         s4514 = "ERROR in CFG FILE AT NETCONF= Line"
  111.         ActivityLog s4514
  112.         Sub2669
  113.         End 
  114.       Else
  115.   670   i5478 = Val(s5518)
  116.       End If
  117.   682 If s5514 = "" Then
  118.         s4514 = "ERROR in CFG FILE AT PVTCONF= Line"
  119.         ActivityLog s4514
  120.         Sub2669
  121.         End 
  122.       Else
  123.   728   i5522 = Val(s5514)
  124.       End If
  125.   740 If s5482 = "" Then
  126.         s4514 = "ERROR in CFG FILE AT USENAME= Line"
  127.         ActivityLog s4514
  128.         Sub2669
  129.         End 
  130.       Else
  131.   786   s5482 = UCase(s5482)
  132.         s5482 = Trim(s5482)
  133.       End If
  134.   808 If s5508 = "" Then
  135.         s4514 = "ERROR in CFG FILE AT SYSOPID= Line"
  136.         ActivityLog s4514
  137.         Sub2669
  138.         End 
  139.       Else
  140.   854   i5512 = Val(s5508)
  141.       End If
  142.   866 If s5504 = "" Then
  143.         s4514 = "ERROR in CFG FILE AT USEID= Line"
  144.         ActivityLog s4514
  145.         Sub2669
  146.         End 
  147.       Else
  148.   912   w5480 = Val(s5504)
  149.       End If
  150.   924 s4514 = "Scanning NetMail Conference"
  151.       ActivityLog s4514
  152.       Print " @8C@WAIT! @0F@Scanning Message Database ......"
  153.   949 Print "@NOPAUSE@"
  154.       Join i5478
  155.       If GetMessage(mh4518, 1) Then
  156.         Do
  157.   980     Print "@0F@ Message Number "; mh4518.Number;
  158.           Locate CsrLin, 1
  159.           i5526 = -1
  160.           mh4518.To = Trim(mh4518.To)
  161.           mh4518.To = UCase(mh4518.To)
  162.           If mh4518.To = s5482 Then
  163.             If mh4518.Flags < 512 Or mh4518.Flags > 513 Then
  164.               mh5158 = mh4518 '! 320 bytes
  165.               mh4518.Flags = 513
  166.               UpdateMessage(mh4518, "")
  167.               mh4518.Subject = UCase(mh4518.Subject)
  168.               mh4518.Subject = Trim(mh4518.Subject)
  169.               s4514 = mh4518.Subject
  170.               If InStr(s4514, "HELP") > 0 Then
  171.                 Sub1453
  172.               End If
  173.  1243         If InStr(s4514, "FILE") > 0 Then
  174.                 Sub2784
  175.                 GoTo 949
  176.               End If
  177.  1276         If InStr(s4514, "LIST") > 0 Then
  178.                 Sub1904
  179.               End If
  180.  1303         If i5526 Then
  181.                 Sub2355
  182.               End If
  183.             End If
  184.           End If
  185.  1320   Loop Until Not GetNextMessage(mh4518)
  186.       Else
  187.  1340   ActivityLog "ERROR! No Messages in Conference!"
  188.         s4514 = "ERROR! No Messages in Conference!"
  189.         Sub2669
  190.       End If
  191.  1363 Print "@0A@  ------------ Finished! -------------"
  192.       Delay 4
  193.       Reset 
  194.       Catch 10
  195.         ActivityLog "ERROR! COULD NOT OPEN CFG FILE"
  196.         End 
  197.       GoTo 1413
  198.  1413
  199.  
  200. '! Called 1 time
  201.       Sub Sub1453
  202.         s4514 = s5496 + "HELP.TXT"
  203.         i5526 = 0
  204.         mh4838.From = mh4518.To
  205.         mh4838.To = mh5158.From
  206.         mh4838.Flags = 1
  207.         mh4838.Subject = "HELP Request"
  208.         mh4838.Network = mh5158.Network
  209.         mh4838.ToId = mh5158.ToId
  210.         mh4838.FidoFromZone = mh4518.FidoToZone
  211.         mh4838.FidoFromNet = mh4518.FidoToNet
  212.         mh4838.FidoFromNode = mh4518.FidoToNode
  213.         mh4838.FidoFromPoint = mh4518.FidoToPoint
  214.         mh4838.FidoToZone = mh5158.FidoFromZone
  215.         mh4838.FidoToNet = mh5158.FidoFromNet
  216.         mh4838.FidoToNode = mh5158.FidoFromNode
  217.         mh4838.FidoToPoint = mh5158.FidoFromPoint
  218.         AddMessage(mh4838, s4514, "", i5478)
  219.         ActivityLog "Request Sent HELP Message"
  220.         s4514 = "Sent HELP Text File To " + mh4838.To + " @ " + Str(mh4838.FidoToZone) + ":" + Str(mh4838.FidoToNet) + "/" + Str(mh4838.FidoToNode) + "." + Str(mh4838.FidoToPoint)
  221.         Print "@0F@ Sending Help Message  ......"
  222.         Sub2558
  223.       End Sub
  224.  
  225. '! Called 1 time
  226.       Sub Sub1904
  227.         s4514 = s5496 + "LIST.TXT"
  228.         i5526 = 0
  229.         mh4838.From = mh4518.To
  230.         mh4838.To = mh4518.From
  231.         mh4838.Flags = 1
  232.         mh4838.Subject = "File LIST Request"
  233.         mh4838.Network = mh4518.Network
  234.         mh4838.ToId = mh5158.ToId
  235.         mh4838.FidoFromZone = mh4518.FidoToZone
  236.         mh4838.FidoFromNet = mh4518.FidoToNet
  237.         mh4838.FidoFromNode = mh4518.FidoToNode
  238.         mh4838.FidoFromPoint = mh4518.FidoToPoint
  239.         mh4838.FidoToZone = mh5158.FidoFromZone
  240.         mh4838.FidoToNet = mh5158.FidoFromNet
  241.         mh4838.FidoToNode = mh5158.FidoFromNode
  242.         mh4838.FidoToPoint = mh5158.FidoFromPoint
  243.         AddMessage(mh4838, s4514, "", i5478)
  244.         ActivityLog "Request Sent LIST Message"
  245.         s4514 = "Sent LIST Text File To " + mh4838.To + " @ " + Str(mh4838.FidoToZone) + ":" + Str(mh4838.FidoToNet) + "/" + Str(mh4838.FidoToNode) + "." + Str(mh4838.FidoToPoint)
  246.         Print "@0F@ Sending LIST Message  ......"
  247.         Sub2558
  248.       End Sub
  249.  
  250. '! Called 4 times
  251.       Sub Sub2355
  252.         mh4838.From = mh4518.To
  253.         mh4838.To = MakeWild.SysopName
  254.         mh4838.Flags = 1
  255.         mh4838.ToId = i5512
  256.         mh4838.Subject = mh4518.Subject
  257.         s4514 = s5496 + "MESSAGE.TXT"
  258.         GetMessageText(mh4518.Number, s4514)
  259.         AddMessage(mh4838, s4514, "", i5522)
  260.         If Exists(s4514) Then
  261.           Del s4514
  262.         End If
  263.  2523   Print "@0F@ Forward Message to Sysop...."
  264.         ActivityLog "Formatted Message Unknown, Forwarded to Sysop"
  265.         s4514 = "Formatted Message Unknown, Forwarded to Sysop"
  266.         Sub2558
  267.       End Sub
  268.  
  269. '! Called 7 times
  270.       Sub Sub2558
  271.         Dim s65532 As String
  272.  
  273.         s65532 = s5496 + "REQUEST.LOG"
  274.         Open s65532 For Append As 1
  275.         LockFile(1, 0, 1)
  276.         Print #1, s4514
  277.         UnlockFile(1, 0, 1)
  278.         Close 1
  279.         Catch 10
  280.           ActivityLog "ERROR! COULD NOT OPEN REQUEST.LOG FILE"
  281.         GoTo 2662
  282.  2662
  283.       End Sub
  284.  
  285. '! Called 7 times
  286.       Sub Sub2669
  287.         Dim s65532 As String
  288.  
  289.         s65532 = s5496 + "REQUEST.LOG"
  290.         Open s65532 For Append As 1
  291.         LockFile(1, 0, 1)
  292.         Print #1, s4514
  293.         UnlockFile(1, 0, 1)
  294.         Close 1
  295.         Reset 
  296.         End 
  297.         Catch 10
  298.           ActivityLog "ERROR! COULD NOT OPEN REQUEST.LOG FILE"
  299.         GoTo 2777
  300.  2777
  301.       End Sub
  302.  
  303. '! Called 1 time
  304.       Sub Sub2784
  305.         Dim i65524 As Integer
  306.         Dim s65526 As String
  307.         Dim s65530 As String
  308.         Dim i65534 As Integer
  309.  
  310.         i5526 = 0
  311.         i65524 = 0
  312.         i65534 = - 1
  313.         i65534 = InStr(mh4518.Subject, "FILE")
  314.         If i65534 < 1 Then
  315.           Sub2355
  316.         End If
  317.  2858   s65526 = RTrim(Mid(mh4518.Subject, i65534 + 5, 70))
  318.         s65526 = Trim(s65526)
  319.         s65526 = UCase(s65526)
  320.         s4514 = s5496 + "MAGIC.TXT"
  321.         If Not Exists(s4514) Then
  322.           ActivityLog "ERROR! Could NOT find MAGIC.TXT file"
  323.           s4514 = "ERROR! Could NOT find MAGIC.TXT file"
  324.           Sub2558
  325.         End If
  326.  2964   Open s4514 For Input As 1
  327.         LockFile(1, 0, 1)
  328.  2992   Do While Not EOF(1)
  329.           Input #1, s4514
  330.           If InStr(s4514, s65526) > 0 Then
  331.             i65524 = -1
  332.             i65534 = InStr(s4514, ",")
  333.             If i65534 < 1 Then
  334.               Sub2355
  335.             End If
  336.  3078       s65530 = RTrim(Mid(s4514, i65534 + 1, 80))
  337.             s65530 = Trim(s65530)
  338.             s65530 = UCase(s65530)
  339.           End If
  340.  3125   Loop
  341.  3131   UnlockFile(1, 0, 1)
  342.         Close 1
  343.         If i65524 = 0 Then
  344.           ActivityLog "Could NOT find MAGIC NAME FILE"
  345.           Sub2355
  346.         End If
  347.  3173   s4514 = "DEL " + s5496 + "*.UUE"
  348.         Shell s4514, ""
  349.         s4514 = "UUENCODE -S 145 " + s65530 + " " + s5496 + s65526 + ".UUE"
  350.         Shell s4514, ""
  351.         i5526 = 0
  352.         mh4838.From = mh4518.To
  353.         mh4838.To = mh5158.From
  354.         mh4838.Flags = 1
  355.         mh4838.Subject = s65526 + "File Request"
  356.         mh4838.Network = mh5158.Network
  357.         mh4838.ToId = mh5158.ToId
  358.         mh4838.FidoFromZone = mh4518.FidoToZone
  359.         mh4838.FidoFromNet = mh4518.FidoToNet
  360.         mh4838.FidoFromNode = mh4518.FidoToNode
  361.         mh4838.FidoFromPoint = mh4518.FidoToPoint
  362.         mh4838.FidoToZone = mh5158.FidoFromZone
  363.         mh4838.FidoToNet = mh5158.FidoFromNet
  364.         mh4838.FidoToNode = mh5158.FidoFromNode
  365.         mh4838.FidoToPoint = mh5158.FidoFromPoint
  366.         i4512 = 0
  367.         s4514 = s5496 + "*.UUE"
  368.         If i4512 = FindFirst(s4514, 0, sr4463) Then
  369.  3582     Do While i4512 = 0
  370.             mh4838.Subject = sr4463.Name + " UUEncoded."
  371.             s4514 = s5496 + sr4463.Name
  372.             AddMessage(mh4838, s4514, "", i5478)
  373.             Del s4514
  374.             i4512 = FindNext(sr4463)
  375.           Loop
  376.  3688   Else
  377.  3694     ActivityLog "Could NOT Find UUEncoded Files!"
  378.           s4514 = "Could NOT find UUEncoded Files"
  379.           Sub2558
  380.         End If
  381.  3717   ActivityLog "SENT UUEncoded File " + s65526
  382.         s4514 = "Sent Magic File: " + s65526 + " in UUE To " + mh4838.To + " @ " + Str(mh4838.FidoToZone) + ":" + Str(mh4838.FidoToNet) + "/" + Str(mh4838.FidoToNode) + "." + Str(mh4838.FidoToPoint)
  383.         Print "@0F@ " + s4514
  384.         Sub2558
  385.         s65526 = ""
  386.         s65530 = ""
  387.       End Sub
  388.